home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Night Owl 6
/
Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso
/
026a
/
upsmft.zip
/
HEADER.PRG
< prev
next >
Wrap
Text File
|
1991-09-19
|
2KB
|
113 lines
USE SHIPMAST
ACCEPT "DATE SHIPPED:" TO A
ACCEPT "UPS PICK-UP RECORD NUMBER:"TO B
**************************************** VARIABLES *********
X=0
LB=0
SC=0
CC=0
CA=0
DV=0
BB=0
SS=0
C1=0
AA=0
VV=0
*************************************************************
SET DEVICE TO PRINT
@1,1 SAY "DATE SHIPPED:"
@1,17 SAY A
@1,55 SAY "AUTOMATED BUSINESS SERVICES"
@1,95 SAY "UPS SHIPPER NUMBER:PA123-456"
@2,55 SAY "BOX 301"
@2,95 SAY "UPS PICK-UP RECORD NUMBER:"
@2,123 SAY B
@3,55 SAY "PINE GROVE MILLS, PA 16868"
@5,1 SAY "INVOICE CONSINGEE CONSIGNEE ì
CITY STATE ZIP ZONE WT CHGS COD COD O/S ì
DEì
CLARED AOD"
@6,1 SAY "NUMBER NAME ADDRESS ì
CHGS ì
ì
ì
AMT VALUE "ì
DO WHILE .NOT. EOF()
@8+X,1 SAY INVNO
@8+X,15 SAY LAST
@8+X,26 SAY SHADDRESS
@8+X,52 SAY SHCITY
@8+X,69 SAY SHSTATE
@8+X,73 SAY SHZIP
@8+X,82 SAY ZONE
@8+X,86 SAY POUNDS
@8+X,89 SAY SHIPCHARGE
@8+X,96 SAY CODCHARGE
@8+X,104 SAY CODAMT
@8+X,111 SAY OVERSIZED
@8+X,114 SAY DECVALUE
@8+X,124 SAY AOD
X=X+1
IF X>99
***************************** SUBTOTALS******************
LB=LB+POUNDS
SC=SC+SHIPCHARGE
CC=CC+CODCHARGE
CA=CA+CODAMT
DV=DV+DECVALUE
@8+X+2,8 SAY "SUBTOTALS"
@8+X+2,20 SAY "POUNDS:"
@8+X+2,23 SAY LB
@8+X+2,40 SAY "CHARGES:"
@8+X+2,45 SAY SC
@8+X+2,65 SAY "COD CHARGES:"
@8+X+2,70 SAY CC
@8+X+2,85 SAY "COD AMOUNT:"
@8+X+2,90 SAY CA
@8+X+2,105 SAY "DECLARED VALUE:"
@8+X+2,117 SAY DV
@8+X+4,8 SAY " "
X=0
BB=BB+LB
SS=SS+SC
C1=C1+CC
AA=AA+CA
VV=VV+DV
LB=0
SC=0
CC=0
CA=0
DV=0
SKIP
*****************************************************************
ELSE
LB=POUNDS+LB
SC=SHIPCHARGE+SC
CC=CODCHARGE+CC
CA=CODAMT+CA
DV=DECVALUE+DV
SKIP
ENDIF
ENDDO
BB=BB+LB
SS=SS+SC
C1=C1+CC
AA=AA+CA
VV=VV+DV
************************ TOTALS *********************************
@8+X+2,8 SAY "TOTALS"
@8+X+2,20 SAY "POUNDS:"
@8+X+2,23 SAY BB
@8+X+2,40 SAY "CHARGES:"
@8+X+2,45 SAY SS
@8+X+2,65 SAY "COD CHARGES:"
@8+X+2,70 SAY C1
@8+X+2,85 SAY "COD AMOUNT:"
@8+X+2,90 SAY AA
@8+X+2,105 SAY "DECLARED VALUE:"
@8+X+2,117 SAY VV
@8+X+4,8 SAY " "
SET DEVICE TO SCREEN
RETURN